home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Merciful 2
/
Merciful - Disc 2.iso
/
software
/
a
/
amitcpv4.1cracked1.dms
/
amitcpv4.1cracked1.adf
/
Install_Patch
< prev
next >
Wrap
Text File
|
1995-01-12
|
2KB
|
103 lines
; Hello
(set cpu (database "cpu"))
(if (= cpu 68000) (set XXcpu 0)) (if (= cpu 68010) (set XXcpu 1))
(if (= cpu 68020) (set XXcpu 2)) (if (= cpu 68030) (set XXcpu 3))
(if (= cpu 68040) (set XXcpu 4)) (if (= cpu 68060) (set XXcpu 5))
(set #Compress "AmiTCP-41_Install#1:lhex")
(message "\n\nThis will install the Patched version of\n\nAmiTCP/IP 4.1\n\n\nIf you wish 'Abort Install' and make a backup now!")
(set Where (askdir (prompt "Where is AmiTCP/IP 4.1 located?")
(help "Where is AmiTCP/IP 4.1 located?")
(default "AmiTCP:")
)
)
(set cpu000 (askchoice (choices "68000" "68010" "68020" "68030"
"68040" "68060"
)
(prompt "Central Processing Unit Check")
(help "Sorry no help.")
(default XXcpu)
)
)
(set ToDo ("%s \"-qfw=%s\" x %s *" #Compress "ram:" "AmiTCP-41_Install#1:AmiTCPCR.LHA"))
(set error (run ToDo))
(complete 65)
(if (< XXcpu 1)
(
(delete (cat Where "amitcp"))
(copyfiles (help "Sorry No help here...")
(source "ram:AmiTCP.000")
(dest Where)
(prompt " ")
(newname "AmiTCP")
)
)
)
(complete 75)
(if (> XXcpu 0)
(
(delete (cat Where "amitcp"))
(copyfiles (help "Sorry No help here...")
(source "ram:AmiTCP.020")
(dest Where)
(prompt " ")
(newname "AmiTCP")
)
)
)
(copyfiles (help "Sorry No help here...")
(source "ram:Amitcp.key")
(dest (cat Where "/devs"))
(prompt " ")
)
(delete "ram:AmiTCP.020")
(delete "ram:AmiTCP.000")
(delete "ram:Amitcp.key")
(message "If you use this software\n\nBUY IT\n\n if you would like to see the next vesrion")